home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / XP Suite / DATA1.CAB / XP_Selection_Sample_Files / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2003-04-24  |  5.2 KB  |  144 lines
  1. VERSION 5.00
  2. Object = "{BC211913-B646-4281-A764-B6E2D473D3F6.ocx}#1.1#0"; "ciaXPSelectionControls.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "CheckBox and Option Button Example"
  5.    ClientHeight    =   2265
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   7290
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    Picture         =   "Form1.frx":0000
  12.    ScaleHeight     =   2265
  13.    ScaleWidth      =   7290
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin ciaXPSelectionControls.XPOption XPOption2 
  16.       Height          =   330
  17.       Left            =   2835
  18.       TabIndex        =   4
  19.       Top             =   1170
  20.       Width           =   1455
  21.       _ExtentX        =   2566
  22.       _ExtentY        =   582
  23.       Caption         =   "XPOption2"
  24.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  25.          Name            =   "MS Sans Serif"
  26.          Size            =   8.25
  27.          Charset         =   0
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.    End
  34.    Begin ciaXPSelectionControls.XPOption XPOption1 
  35.       Height          =   330
  36.       Left            =   2835
  37.       TabIndex        =   3
  38.       Top             =   765
  39.       Width           =   1455
  40.       _ExtentX        =   2566
  41.       _ExtentY        =   582
  42.       Caption         =   "XPOption1"
  43.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  44.          Name            =   "MS Sans Serif"
  45.          Size            =   8.25
  46.          Charset         =   0
  47.          Weight          =   400
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.    End
  53.    Begin ciaXPSelectionControls.XPCheckBox chkTransparent 
  54.       Height          =   330
  55.       Left            =   750
  56.       TabIndex        =   2
  57.       Top             =   765
  58.       Width           =   1455
  59.       _ExtentX        =   2566
  60.       _ExtentY        =   582
  61.       Caption         =   "XPCheckBox1"
  62.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  63.          Name            =   "MS Sans Serif"
  64.          Size            =   8.25
  65.          Charset         =   0
  66.          Weight          =   400
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.    End
  72.    Begin ciaXPSelectionControls.XPOption XPOption3 
  73.       Height          =   330
  74.       Left            =   4395
  75.       TabIndex        =   5
  76.       Top             =   765
  77.       Width           =   1455
  78.       _ExtentX        =   2566
  79.       _ExtentY        =   582
  80.       Caption         =   "XPOption1"
  81.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  82.          Name            =   "MS Sans Serif"
  83.          Size            =   8.25
  84.          Charset         =   0
  85.          Weight          =   400
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       GroupID         =   1
  91.    End
  92.    Begin ciaXPSelectionControls.XPOption XPOption4 
  93.       Height          =   330
  94.       Left            =   4395
  95.       TabIndex        =   6
  96.       Top             =   1170
  97.       Width           =   1455
  98.       _ExtentX        =   2566
  99.       _ExtentY        =   582
  100.       Caption         =   "XPOption2"
  101.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       GroupID         =   1
  111.    End
  112.    Begin VB.Label Label2 
  113.       AutoSize        =   -1  'True
  114.       BackStyle       =   0  'Transparent
  115.       Caption         =   "Group 1"
  116.       Height          =   195
  117.       Left            =   4785
  118.       TabIndex        =   1
  119.       Top             =   1695
  120.       Width           =   570
  121.    End
  122.    Begin VB.Label Label1 
  123.       AutoSize        =   -1  'True
  124.       BackStyle       =   0  'Transparent
  125.       Caption         =   "Group 0"
  126.       Height          =   195
  127.       Left            =   3135
  128.       TabIndex        =   0
  129.       Top             =   1695
  130.       Width           =   570
  131.    End
  132. Attribute VB_Name = "Form1"
  133. Attribute VB_GlobalNameSpace = False
  134. Attribute VB_Creatable = False
  135. Attribute VB_PredeclaredId = True
  136. Attribute VB_Exposed = False
  137. Private Sub chkTransparent_Click()
  138. If chkTransparent.Value = Checked Then chkTransparent.Style = ciaTransparent Else chkTransparent.Style = ciaStandard
  139. If chkTransparent.Value = Checked Then XPOption1.Style = ciaTransparent Else XPOption1.Style = ciaStandard
  140. If chkTransparent.Value = Checked Then XPOption2.Style = ciaTransparent Else XPOption2.Style = ciaStandard
  141. If chkTransparent.Value = Checked Then XPOption3.Style = ciaTransparent Else XPOption3.Style = ciaStandard
  142. If chkTransparent.Value = Checked Then XPOption4.Style = ciaTransparent Else XPOption4.Style = ciaStandard
  143. End Sub
  144.